home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 137 / 137.d81 / shp slider.bas (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  485b  |  19 lines
  1. 100 rem .shp slider loader ************
  2. 110 f=f+1
  3. 120 iff=1thenf=f+1:gosub300
  4. 140 iff=2thenload"opsystem     *",dv,1
  5. 160 iff=3thenload"shp slider.bin",dv,1
  6. 170 iff=4thenload"shp slider.dvc",dv,1
  7. 175 iff=5thenload"shp slider.efx",dv,1
  8. 185 rem -------------------------------
  9. 200 poke820,71: rem cheat enable...
  10. 205 rem -------------------------------
  11. 220 sys16384
  12. 300 poke53280,00:poke53281,00
  13. 310 print""chr$(8)chr$(14)
  14. 320 printtab(11)"[153]            "
  15. 330 printtab(10)"[159]                   "
  16. 340 printtab(10)"[150]                  "
  17. 360 dv=peek(186):ifdv<8thendv=8
  18. 370 return
  19.